Imports Baula.TextGen.ActiveTemplating

Public Class Playground
    Public Shared Sub Main()
        Dim AText = "Hallo"
        Dim ANumber = 123
        ExecutionFixture.Execute(Nothing)
    End Sub
End Class

Public Class ExecutionFixture
    Public Shared Sub Execute(ByVal Context As Context)
        Dim Listener As ExecutionListener = Context.Listener
        Dim Forms As FormsContext = Context.Forms

        Dim NeededForms = Forms.Where(Function(Form) Form.Name.Contains("2"))
        For Each Form In NeededForms

        Next
    End Sub
End Class